subroutine save_nstop(nlog,nstp)
  use param
  use global
  implicit none
  integer,intent(in) :: nlog,nstp
  real(dbl) :: maxe,mine,tnd
  integer :: i,p1,p2,nd
  read(nstp,rec=1) mine
  read(nstp,rec=2) maxe
  read(nstp,rec=3) tnd
  nd=int(tnd)
  nstop%mine=mine
  nstop%maxe=maxe
  nstop%ndata=nd
  allocate(nstop%e(nd))
  allocate(nstop%x(nd))
  do i=1,nd
     p1=2*i+2
     p2=2*i+3
     read(nstp,rec=p1) nstop%e(i)
     read(nstp,rec=p2) nstop%x(i)
  end do
end subroutine save_nstop
